---
title: "COVID-19 Pandemic"
author: "Wanda Bodnar"
output:
flexdashboard::flex_dashboard:
orientation: rows
social: menu
source_code: embed
---
```{r setup, include=FALSE}
library(dygraphs)
library(xts)
library(lubridate)
library(dplyr)
library(tidyr)
covid <- read.csv(url("https://raw.githubusercontent.com/owid/covid-19-data/master/public/data/owid-covid-data.csv"))
uk_covid <- covid %>%
filter(location == "United Kingdom")
hun_covid <- covid %>%
filter(location == "Hungary")
```
United Kingdom
=======================================================================
Row
-----------------------------------------------------------------------
### New cases
```{r, include=FALSE}
uk_covid_sub <- subset(uk_covid, select = -c(1:3, 5, 7:59))
uk_covid_sub$date <- ymd(uk_covid_sub$date)
str(uk_covid_sub)
data <- xts(x = uk_covid_sub$new_cases, order.by = uk_covid_sub$date)
names(data) <- c("New cases")
data <- abs(data$`New cases`)
```
```{r}
dygraph(data) %>%
dyOptions(fillGraph = TRUE, fillAlpha = 0.5, colors = "#337ab7") %>%
dyCrosshair(direction = "vertical") %>%
dyLegend(show = "always") %>%
dyRangeSelector()
```
### New tests
```{r, include=FALSE}
uk_covid_sub <- subset(uk_covid, select = -c(1:3, 5, 27:59))
uk_covid_sub$date <- ymd(uk_covid_sub$date)
str(uk_covid_sub)
data2 <- xts(x = uk_covid_sub$new_tests, order.by = uk_covid_sub$date)
names(data2) <- c("New tests")
```
```{r}
dygraph(data2) %>%
dyOptions(fillGraph = TRUE, fillAlpha = 0.5, colors = "#337ab7") %>%
dyCrosshair(direction = "vertical") %>%
dyLegend(show = "always") %>%
dyRangeSelector()
```
Row
-----------------------------------------------------------------------
### Hospital patients
```{r, include=FALSE}
uk_covid_sub <- subset(uk_covid, select = -c(1:3, 5, 21:59))
uk_covid_sub$date <- ymd(uk_covid_sub$date)
str(uk_covid_sub)
data3 <- xts(x = uk_covid_sub$hosp_patients, order.by = uk_covid_sub$date)
names(data3) <- c("Hospital patients")
```
```{r}
dygraph(data3) %>%
dyOptions(fillGraph = TRUE, fillAlpha = 0.5, colors = "#337ab7") %>%
dyCrosshair(direction = "vertical") %>%
dyLegend(show = "always") %>%
dyRangeSelector()
```
### ICU patients
```{r, include=FALSE}
uk_covid_sub <- subset(uk_covid, select = -c(1:3, 5, 19:59))
uk_covid_sub$date <- ymd(uk_covid_sub$date)
str(uk_covid_sub)
data4 <- xts(x = uk_covid_sub$icu_patients, order.by = uk_covid_sub$date)
names(data4) <- c("ICU patients")
```
```{r}
dygraph(data4) %>%
dyOptions(fillGraph = TRUE, fillAlpha = 0.5, colors = "#337ab7") %>%
dyCrosshair(direction = "vertical") %>%
dyLegend(show = "always") %>%
dyRangeSelector()
```
### New deaths
```{r, include=FALSE}
uk_covid_sub <- subset(uk_covid, select = -c(1:3, 5, 10:59))
uk_covid_sub$date <- ymd(uk_covid_sub$date)
str(uk_covid_sub)
data5 <- xts(x = uk_covid_sub$new_deaths, order.by = uk_covid_sub$date)
names(data5) <- c("New deaths")
```
```{r}
dygraph(data5) %>%
dyOptions(fillGraph = TRUE, fillAlpha = 0.5, colors = "#337ab7") %>%
dyCrosshair(direction = "vertical") %>%
dyLegend(show = "always") %>%
dyRangeSelector()
```
### New deaths per million
```{r, include=FALSE}
uk_covid_sub <- subset(uk_covid, select = -c(1:3, 5, 16:59))
uk_covid_sub$date <- ymd(uk_covid_sub$date)
str(uk_covid_sub)
data5a <- xts(x = uk_covid_sub$new_deaths_per_million, order.by = uk_covid_sub$date)
names(data5a) <- c("New deaths per million")
```
```{r}
dygraph(data5a) %>%
dyOptions(fillGraph = TRUE, fillAlpha = 0.5, colors = "#337ab7") %>%
dyCrosshair(direction = "vertical") %>%
dyLegend(show = "always") %>%
dyRangeSelector()
```
Row
-----------------------------------------------------------------------
### People vaccinated (1st dose)
```{r, include=FALSE}
uk_covid_sub <- subset(uk_covid, select = -c(1:3, 5, 40:59))
uk_covid_sub$date <- ymd(uk_covid_sub$date)
str(uk_covid_sub)
data7 <- xts(x = uk_covid_sub$people_vaccinated, order.by = uk_covid_sub$date)
names(data7) <- c("People vaccinated")
```
```{r}
dygraph(data7) %>%
dyOptions(fillGraph = TRUE, fillAlpha = 0.5, colors = "#337ab7") %>%
dyCrosshair(direction = "vertical") %>%
dyLegend(show = "always") %>%
dyRangeSelector()
```
### People fully vaccinated (2nd dose)
```{r, include=FALSE}
uk_covid_sub <- subset(uk_covid, select = -c(1:3, 5, 40:59))
uk_covid_sub$date <- ymd(uk_covid_sub$date)
str(uk_covid_sub)
data8 <- xts(x = uk_covid_sub$people_fully_vaccinated, order.by = uk_covid_sub$date)
names(data8) <- c("People fully vaccinated")
```
```{r}
dygraph(data8) %>%
dyOptions(fillGraph = TRUE, fillAlpha = 0.5, colors = "#337ab7") %>%
dyCrosshair(direction = "vertical") %>%
dyLegend(show = "always") %>%
dyRangeSelector()
```
### Total boosters (3rd dose)
```{r, include=FALSE}
uk_covid_sub <- subset(uk_covid, select = -c(1:3, 5, 40:59))
uk_covid_sub$date <- ymd(uk_covid_sub$date)
str(uk_covid_sub)
data9 <- xts(x = uk_covid_sub$total_boosters, order.by = uk_covid_sub$date)
names(data9) <- c("Total boosters")
```
```{r}
dygraph(data9) %>%
dyOptions(fillGraph = TRUE, fillAlpha = 0.5, colors = "#337ab7") %>%
dyCrosshair(direction = "vertical") %>%
dyLegend(show = "always") %>%
dyRangeSelector()
```
### New vaccinations per million
```{r, include=FALSE}
uk_covid_sub <- subset(uk_covid, select = -c(1:3, 5, 50:59))
uk_covid_sub$date <- ymd(uk_covid_sub$date)
str(uk_covid_sub)
data10 <- xts(x = uk_covid_sub$new_vaccinations_smoothed_per_million, order.by = uk_covid_sub$date)
names(data10) <- c("New vaccinations per million")
```
```{r}
dygraph(data10) %>%
dyOptions(fillGraph = TRUE, fillAlpha = 0.5, colors = "#337ab7") %>%
dyCrosshair(direction = "vertical") %>%
dyLegend(show = "always") %>%
dyRangeSelector()
```
Hungary
=======================================================================
Row
-----------------------------------------------------------------------
### New cases
```{r, include=FALSE}
hun_covid_sub <- subset(hun_covid, select = -c(1:3, 5, 7:59))
hun_covid_sub$date <- ymd(hun_covid_sub$date)
str(hun_covid_sub)
data <- xts(x = hun_covid_sub$new_cases, order.by = hun_covid_sub$date)
names(data) <- c("New cases")
data <- abs(data$`New cases`)
```
```{r}
dygraph(data) %>%
dyOptions(fillGraph = TRUE, fillAlpha = 0.5, colors = "#337ab7") %>%
dyCrosshair(direction = "vertical") %>%
dyLegend(show = "always") %>%
dyRangeSelector()
```
### New tests
```{r, include=FALSE}
hun_covid_sub <- subset(hun_covid, select = -c(1:3, 5, 27:59))
hun_covid_sub$date <- ymd(hun_covid_sub$date)
str(hun_covid_sub)
data2 <- xts(x = hun_covid_sub$new_tests, order.by = hun_covid_sub$date)
names(data2) <- c("New tests")
```
```{r}
dygraph(data2) %>%
dyOptions(fillGraph = TRUE, fillAlpha = 0.5, colors = "#337ab7") %>%
dyCrosshair(direction = "vertical") %>%
dyLegend(show = "always") %>%
dyRangeSelector()
```
Row
-----------------------------------------------------------------------
### Hospital patients
```{r, include=FALSE}
hun_covid_sub <- subset(hun_covid, select = -c(1:3, 5, 21:59))
hun_covid_sub$date <- ymd(hun_covid_sub$date)
str(hun_covid_sub)
data3 <- xts(x = hun_covid_sub$hosp_patients, order.by = hun_covid_sub$date)
names(data3) <- c("Hospital patients")
```
```{r}
dygraph(data3) %>%
dyOptions(fillGraph = TRUE, fillAlpha = 0.5, colors = "#337ab7") %>%
dyCrosshair(direction = "vertical") %>%
dyLegend(show = "always") %>%
dyRangeSelector()
```
### ICU patients
```{r, include=FALSE}
hun_covid_sub <- subset(hun_covid, select = -c(1:3, 5, 19:59))
hun_covid_sub$date <- ymd(hun_covid_sub$date)
str(hun_covid_sub)
data4 <- xts(x = hun_covid_sub$icu_patients, order.by = hun_covid_sub$date)
names(data4) <- c("ICU patients")
```
```{r}
dygraph(data4) %>%
dyOptions(fillGraph = TRUE, fillAlpha = 0.5, colors = "#337ab7") %>%
dyCrosshair(direction = "vertical") %>%
dyLegend(show = "always") %>%
dyRangeSelector()
```
### New deaths
```{r, include=FALSE}
hun_covid_sub <- subset(hun_covid, select = -c(1:3, 5, 10:59))
hun_covid_sub$date <- ymd(hun_covid_sub$date)
str(hun_covid_sub)
data5 <- xts(x = hun_covid_sub$new_deaths, order.by = hun_covid_sub$date)
names(data5) <- c("New deaths")
```
```{r}
dygraph(data5) %>%
dyOptions(fillGraph = TRUE, fillAlpha = 0.5, colors = "#337ab7") %>%
dyCrosshair(direction = "vertical") %>%
dyLegend(show = "always") %>%
dyRangeSelector()
```
### New deaths per million
```{r, include=FALSE}
hun_covid_sub <- subset(hun_covid, select = -c(1:3, 5, 16:59))
hun_covid_sub$date <- ymd(hun_covid_sub$date)
str(hun_covid_sub)
data5a <- xts(x = hun_covid_sub$new_deaths_per_million, order.by = hun_covid_sub$date)
names(data5a) <- c("New deaths per million")
```
```{r}
dygraph(data5a) %>%
dyOptions(fillGraph = TRUE, fillAlpha = 0.5, colors = "#337ab7") %>%
dyCrosshair(direction = "vertical") %>%
dyLegend(show = "always") %>%
dyRangeSelector()
```
Row
-----------------------------------------------------------------------
### People vaccinated (1st dose)
```{r, include=FALSE}
hun_covid_sub <- subset(hun_covid, select = -c(1:3, 5, 40:59))
hun_covid_sub$date <- ymd(hun_covid_sub$date)
str(hun_covid_sub)
data7 <- xts(x = hun_covid_sub$people_vaccinated, order.by = hun_covid_sub$date)
names(data7) <- c("People vaccinated")
```
```{r}
dygraph(data7) %>%
dyOptions(fillGraph = TRUE, fillAlpha = 0.5, colors = "#337ab7") %>%
dyCrosshair(direction = "vertical") %>%
dyLegend(show = "always") %>%
dyRangeSelector()
```
### People fully vaccinated (2nd dose)
```{r, include=FALSE}
hun_covid_sub <- subset(hun_covid, select = -c(1:3, 5, 40:59))
hun_covid_sub$date <- ymd(hun_covid_sub$date)
str(hun_covid_sub)
data8 <- xts(x = hun_covid_sub$people_fully_vaccinated, order.by = hun_covid_sub$date)
names(data8) <- c("People fully vaccinated")
```
```{r}
dygraph(data8) %>%
dyOptions(fillGraph = TRUE, fillAlpha = 0.5, colors = "#337ab7") %>%
dyCrosshair(direction = "vertical") %>%
dyLegend(show = "always") %>%
dyRangeSelector()
```
### Total boosters (3rd dose)
```{r, include=FALSE}
hun_covid_sub <- subset(hun_covid, select = -c(1:3, 5, 40:59))
hun_covid_sub$date <- ymd(hun_covid_sub$date)
str(hun_covid_sub)
data9 <- xts(x = hun_covid_sub$total_boosters, order.by = hun_covid_sub$date)
names(data9) <- c("Total boosters")
```
```{r}
dygraph(data9) %>%
dyOptions(fillGraph = TRUE, fillAlpha = 0.5, colors = "#337ab7") %>%
dyCrosshair(direction = "vertical") %>%
dyLegend(show = "always") %>%
dyRangeSelector()
```
### New vaccinations per million
```{r, include=FALSE}
hun_covid_sub <- subset(hun_covid, select = -c(1:3, 5, 50:59))
hun_covid_sub$date <- ymd(hun_covid_sub$date)
str(hun_covid_sub)
data10 <- xts(x = hun_covid_sub$new_vaccinations_smoothed_per_million, order.by = hun_covid_sub$date)
names(data10) <- c("New vaccinations per million")
```
```{r}
dygraph(data10) %>%
dyOptions(fillGraph = TRUE, fillAlpha = 0.5, colors = "#337ab7") %>%
dyCrosshair(direction = "vertical") %>%
dyLegend(show = "always") %>%
dyRangeSelector()
```